home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 016 / herc.arc / GCIRC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-03-21  |  564 b   |  32 lines
  1.  
  2. #define LINT_ARGS
  3. #include <math.h>
  4.  
  5. extern double a_r;
  6. extern int gset(int, int);
  7.  
  8. void gcirc(x1, y1, rad)
  9. unsigned x1, y1;
  10. long rad;
  11. {
  12.     unsigned i, j, k, r, x;
  13.  
  14.     r = rad*.75;
  15.     rad *= rad;
  16.     for(k = 0; k <= r; k++) {
  17.         x = (sqrt((double)(rad - k*k)));
  18.         i = a_r * x;
  19.         gset(x1+k, y1+i);
  20.         gset(x1-k, y1+i);
  21.         gset(x1+k, y1-i);
  22.         gset(x1-k, y1-i);
  23.   
  24.         j = a_r * k;
  25.         gset(x1+x, y1+j);
  26.         gset(x1-x, y1+j);
  27.         gset(x1+x, y1-j);
  28.         gset(x1-x, y1-j);
  29.     }
  30. }
  31.  
  32.